inherited FGeraPagamentoProgramado: TFGeraPagamentoProgramado
  Left = 290
  Top = 264
  Caption = 'Gera Pagamento Programado'
  ClientHeight = 227
  ClientWidth = 382
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 382
    Height = 227
    object Label1: TLabel [0]
      Left = 5
      Top = 40
      Width = 65
      Height = 13
      Caption = 'Compet'#234'ncia '
    end
    object Label2: TLabel [1]
      Left = 253
      Top = 40
      Width = 82
      Height = 13
      Caption = 'Data Vencimento'
    end
    inherited Panel2: TPanel
      Width = 380
      inherited BtnIncluir: TBitBtn
        Caption = '&Executar'
      end
      inherited BtnEditar: TBitBtn
        Left = 346
        Top = 100
        Visible = False
      end
      inherited BtnSalvar: TBitBtn
        Left = 352
        Top = 100
        Visible = False
      end
      inherited BtnCancelar: TBitBtn
        Left = 357
        Top = 100
        Visible = False
      end
      inherited BtnFechar: TBitBtn
        Left = 299
      end
      inherited BtnExcluir: TBitBtn
        Left = 354
        Top = 100
        Visible = False
      end
    end
    inherited Panel3: TPanel
      Top = 222
      Width = 380
      Height = 4
      TabOrder = 4
      Visible = False
      inherited DBNavigator1: TDBNavigator
        Hints.Strings = ()
        Visible = False
      end
    end
    object DTPeriodoValidade: TDateTimePicker
      Tag = 5
      Left = 5
      Top = 56
      Width = 103
      Height = 21
      CalAlignment = dtaLeft
      Date = -363
      Format = 'MMMM yyyy'
      Time = -363
      DateFormat = dfShort
      DateMode = dmUpDown
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object DBGrid1: TDBGrid
      Tag = 5
      Left = 0
      Top = 88
      Width = 377
      Height = 106
      DataSource = DSPagamentoProgramado
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object ProgressBar: TProgressBar
      Left = 1
      Top = 205
      Width = 380
      Height = 17
      Align = alBottom
      Min = 0
      Max = 100
      Step = 1
      TabOrder = 3
    end
    object DEDataVencimento: TDateEdit
      Tag = 5
      Left = 253
      Top = 56
      Width = 120
      Height = 21
      NumGlyphs = 2
      TabOrder = 5
      OnEnter = DEDataVencimentoEnter
    end
  end
  object QPagamentoProgramado: TQuery
    DatabaseName = 'DBGERAPAGAMENTOPROGRAMADO'
    SQL.Strings = (
      'Select * from Cobranca_Programada'
      'Where (CodigoEmpresa = 1)'
      ''
      
        'And (PERIODOVALIDADEINI <='#39'2003/08/01'#39' and PERIODOVALIDADEFIN >=' +
        #39'2003/08/01'#39')'
      ''
      'And (DATAINATIVO <> '#39'2003/08/01'#39' )'
      '')
    Left = 119
    Top = 81
  end
  object QContasPagar: TQuery
    DatabaseName = 'DBGERAPAGAMENTOPROGRAMADO'
    RequestLive = True
    SQL.Strings = (
      'Select * from ContasReceber'
      ''
      
        'Order By CR_Codigo,CR_CLIENTE,CR_PLANO,CR_DATAVENCIMENTO,CR_VALO' +
        'R')
    Left = 152
    Top = 81
  end
  object DSPagamentoProgramado: TDataSource
    DataSet = QPagamentoProgramado
    Left = 128
    Top = 128
  end
  object Database: TDatabase
    AliasName = 'Gestao'
    DatabaseName = 'DBGERAPAGAMENTOPROGRAMADO'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=LINKTEC'
      'PASSWORD=172026')
    SessionName = 'Default'
    TransIsolation = tiDirtyRead
    Left = 160
    Top = 48
  end
end
